home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / clisp-li.000 / clisp-li / clisp-1996-07-22 / src / stdwin2.lsp < prev    next >
Encoding:
Text File  |  1993-08-29  |  270 b   |  15 lines
  1. ;; STDWIN-Paket
  2. ;; Bruno Haible 29.8.1993
  3.  
  4. (in-package "STDWIN" :use '("LISP"))
  5.  
  6. (defmacro drawing (window &body body)
  7.   (let ((w (gensym)))
  8.     `(LET ((,w ,window))
  9.        (BEGIN-DRAWING ,w)
  10.        (UNWIND-PROTECT (PROGN ,@body)
  11.          (END-DRAWING ,w)
  12.      ) )
  13. ) )
  14.  
  15.